home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / ED / PCKEY.ZIP / DOTEST3.SCR < prev    next >
Encoding:
Text File  |  1993-05-25  |  502 b   |  34 lines

  1. :dotest3.scr
  2.  
  3. :testa
  4. clear 23
  5. cursor 2 24
  6. print 'In your own time, type the above words.
  7.  
  8. start 3
  9. cursor 5 16
  10. test -
  11. cursor 5 20
  12. test -
  13. clear 23
  14. cursor 0 23
  15. if mistakes 3 = 0 print 'Well done. 
  16. print 'You made 
  17. if mistakes 3 > 0 mistakes 3
  18. if mistakes 3 = 0 print 'no
  19. print ' mistake
  20. if mistakes 3 ! 1 print 's
  21. print '.
  22. if mistakes 3 = 0 goto exit
  23. print ' Try again.
  24. script - waitspc
  25. clear 17 18
  26. clear 21 22
  27. goto testa
  28.  
  29. :exit
  30. script - waitspc
  31. clear 17 18
  32. clear 21 22
  33.  
  34.